(byte-compile-lambda): Test of byte-compile-compatibility was backwards.

diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index 817907ccf2dc3eae1cccc545febb01192d57b2a0..f4bba7ed21697546134d700efbf7969e7ada8484 100644 (file)
--- a/lisp/emacs-lisp/bytecomp.el
+++ b/lisp/emacs-lisp/bytecomp.el
@@ -1681,9 +1681,10 @@ If FORM is a lambda or a macro, byte-compile it as a function."
                  (byte-compile-warn "malformed interactive spec: %s"
                                     (prin1-to-string int))))))
     (let ((compiled (byte-compile-top-level (cons 'progn body) nil 'lambda)))
+      (setq foo compiled)
       (if (and (eq 'byte-code (car-safe compiled))
-              (byte-compile-version-cond
-               byte-compile-compatibility))
+              (not (byte-compile-version-cond
+                    byte-compile-compatibility)))
          (apply 'make-byte-code
                 (append (list arglist)
                         ;; byte-string, constants-vector, stack depth